home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgLangD.iso
/
Foxpro 2.6 {Windows}
/
LASERCA1.PR_
/
LASERCA1.bin
Wrap
Text File
|
1994-03-10
|
486b
|
30 lines
PARAMETER ncat
categ = "Other"
DO CASE ncat
CASE ncat = 1
categ = "Action"
CASE ncat = 2
categ = "Mystery/Suspense"
CASE ncat = 3
categ = "Children"
CASE ncat = 4
categ = "Comedy"
CASE ncat = 5
categ = "Documentary"
CASE ncat = 6
categ = "Drama"
CASE ncat = 7
categ = "Foreign"
CASE ncat = 8
categ = "Horror"
CASE ncat = 9
categ = "Music/Opera"
CASE ncat = 10
categ = "Musicals"
CASE ncat = 11
categ = "Science Fiction"
CASE ncat = 12
categ = "Western"
ENDCASE
RETURN categ